United States COVID-19 Analysis
David J Jackson
June 30, 2020
US Cases and Deaths by Date (Previous 60 Days)
- Data Source: European Centre for Disease Prevention and Control
- URL: https://www.ecdc.europa.eu/en/publications-data/download-todays-data-geographic-distribution-covid-19-cases-worldwide
# ggplotly(cases_1)
plot_2 <- US %>% filter(Reported >= Sys.Date() - 60) %>% ggplot() + geom_col(aes(x=Reported,y=Deaths,fill=Deaths)) +
theme(axis.text.x = element_text(angle = 45)) +
labs(x="US Date Reported",y="Total Deaths",title=" US COVID-19: Deaths by Date")
ggplotly(plot_2)US Accumulated Daily Total: Cases and Deaths
- Data Source: John Hopkins Coronavirus Resource Center
- URL: https://coronavirus.jhu.edu/map.html
Exponential Growth by the Numbers:
- The first confirmed case US were on Jan. 1, 2020 (Washington State)
- March 11, 2020 total cases: 1,281
- March 17, 2020 total cases: 6,421
- March 19, 2020 total cases: 13,747
- March 21, 2020 total cases: 25,600
- April 11, 2020 total cases: 52,639
US Recoveries Accoumliated and Daily Totals
JHU_US %>% filter(Date >= Sys.Date() -60) %>%
ggplot() + geom_col(aes(x=Date,y=na.omit(Recovered),fill=Recovered)) +
theme(axis.text.x = element_text(angle = 45)) +
labs(title="USA COVID-19: Accumulated Recoveries by Date",x="Date Reported",y="Total Cases") + scale_y_continuous(labels = scales::comma) +
scale_fill_gradient(labels = scales::comma)
US %>% ggplot(aes(x=Reported,y=Cases)) + geom_line() +
geom_smooth() + scale_y_log10() +
labs(title="US Accumulated Cases by Date(Log10)",x="Date",y=" Log of Cases")## Warning: Transformation introduced infinite values in continuous y-axis
## Warning: Transformation introduced infinite values in continuous y-axis## `geom_smooth()` using method = 'loess' and formula 'y ~ x'## Warning: Removed 44 rows containing non-finite values (stat_smooth).
US %>% ggplot(aes(x=Reported,y=Deaths)) + geom_line() +
geom_smooth() + scale_y_log10() +
labs(title="US Accumulated Deaths by Date(Log10)",x="Date",y=" Log of Cases")## Warning: Transformation introduced infinite values in continuous y-axis
## Warning: Transformation introduced infinite values in continuous y-axis## `geom_smooth()` using method = 'loess' and formula 'y ~ x'## Warning: Removed 62 rows containing non-finite values (stat_smooth).